home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / P / Progress XCMD 1.1.cpt / Progress XCMD 1.1 / Progress XCMD 1.1 / card_4246.txt < prev    next >
Encoding:
Text File  |  1989-06-10  |  830 b   |  31 lines
  1. -- card: 4246 from stack: in.1
  2. -- bmap block id: 6745
  3. -- flags: 0000
  4. -- background id: 2600
  5. -- name: 
  6.  
  7.  
  8. -- part contents for background part 1
  9. ----- text -----
  10. Say you're performing some task on every card of a stack.  Then you might script something like this:
  11.  
  12. on mouseUp
  13.    global ProgressPointer,RemoveProgress  --more on this in a minute
  14.    set cursor to watch
  15.    Progress 1,"Now crunching data on all cards..."
  16.    lock screen
  17.    put the ID of this card into backhere
  18.    repeat with i=1 to the number of cards
  19.       go card i
  20.       Progress 2,(i/the number of cards)*100   --multiply by 100 to make a "percent"
  21.       doTheCrunching
  22.    end repeat
  23.    Progress 3  --dispose of the dialog
  24.    go backhere  --go back to where you started from
  25.    unlock screen
  26. end mouseUp
  27.  
  28.  
  29. -- part contents for background part 7
  30. ----- text -----
  31. 4